Quote semanticdb-ebrowse-default-file-name in regexp

Noticed by Andreas Schwab.

* lisp/cedet/semantic/db-ebrowse.el (semanticdb-load-ebrowse-caches):
Quote file name in regexp.

diff --git a/lisp/cedet/semantic/db-ebrowse.el b/lisp/cedet/semantic/db-ebrowse.el
index 6262efb5b8faa6fec23842ba4911f8fbfdd56f1f..d63e5bc48693986fdece8c90858348c0c1d4cd5e 100644 (file)
--- a/lisp/cedet/semantic/db-ebrowse.el
+++ b/lisp/cedet/semantic/db-ebrowse.el
@@ -181,7 +181,8 @@ is specified by `semanticdb-default-save-directory'."
   "Load all semanticdb controlled EBROWSE caches."
   (interactive)
   (let ((f (directory-files semanticdb-default-save-directory
-                           t (concat semanticdb-ebrowse-default-file-name
+                           t (concat (regexp-quote
+                                       semanticdb-ebrowse-default-file-name)
                                       "-load\\.el\\'")
                             t)))
     (while f